home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03145_Script_MPEG < prev    next >
Text File  |  1996-04-01  |  2KB  |  70 lines
  1. -- -----------------------------------------------------------
  2. -- Handler goMPegTime goes to the designated mpeg movie to
  3. -- play the mpeg quicktime.
  4.  
  5. on goMPegTime
  6.   go movie "MPEG.dir" 
  7. end
  8.  
  9. -- -----------------------------------------------------------
  10. -- Handler playMpeg returns to the menu frame of the current
  11. -- invention.
  12.  
  13. on returnFromMPegTime
  14.   global currentInvention
  15.   
  16.   set inventionMovie = getInventionMovieName (currentInvention)
  17.   
  18.   go frame currentInvention && "menu" of movie inventionMovie
  19. end
  20.  
  21. -- -----------------------------------------------------------
  22. -- Handler playMpeg
  23.  
  24. on playMpeg
  25.   global currentInvention
  26.   
  27.   set whichFile = currentInvention & ".mpg"
  28.   
  29.   if (the machineType = 256) then
  30.     playMpegPC(whichFile)
  31.   else
  32.     playMpegMAC(whichFile)
  33.   end if
  34. end
  35.  
  36. -- -----------------------------------------------------------
  37. -- Handler playMpegPC
  38.  
  39. on playMpegPC whichFile
  40.   waitCursor
  41.   
  42.   set fullFileName = the pathName & "MPegA\" & whichFile
  43.   
  44.   set mciCode = "open" && fullFileName && "alias mpegMovie style popup"
  45.   mci mciCode
  46.   mci "where mpegMovie window max"
  47.   set resultCode = the result
  48.   mci "put mpegMovie window at" && resultCode
  49.   mci "window mpegMovie state show"
  50.   --  mci "open" && whichSound && "type waveaudio alias mpegSound"
  51.   --  mci "play mpegSound"
  52.   mci "play mpegMovie from 0 wait"
  53.   mci "close mpegMovie"
  54.   --  mci "close sound"
  55.   
  56.   normalCursor
  57. end
  58.  
  59. -- -----------------------------------------------------------
  60. -- Handler playMpegMac
  61.  
  62. on playMpegMAC whichFile
  63.   waitCursor
  64.   
  65.   set fullFileName = the pathName & "MPegA:" & whichFile
  66.   
  67.   alert "code not ready to play mpeg on the mac"
  68.   
  69.   normalCursor
  70. end